home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / pcgames.arc / BOMB2.BAS < prev    next >
Encoding:
BASIC Source File  |  1982-12-28  |  2.7 KB  |  44 lines
  1. 100 CLS
  2. 110 A$=STRING$(80,205)
  3. 120 PRINT A$
  4. 130 PRINT TAB(34)"FIND THE BOMB"
  5. 140 COLOR 23,0,0
  6. 150 PRINT :PRINT :PRINT TAB(39)"IPCO"
  7. 160 COLOR 7,0,0
  8. 170 PRINT :PRINT :PRINT TAB(25)"PERSONAL COMPUTER OWNERS GROUP"
  9. 180 PRINT :PRINT :PRINT TAB(19)"P.O. BOX 10426, PITTSBURGH, PENNSYLVANIA 15234"
  10. 190 PRINT A$
  11. 200 PRINT :PRINT :PRINT :PRINT :PRINT
  12. 210 PRINT TAB(28)"PRESS ANY KEY TO CONTINUE"
  13. 220 A$=INKEY$:IF A$="" THEN 220
  14. 230 CLS
  15. 240 CLS:LOCATE 4,28:PRINT "DEFUSE"
  16. 250 LOCATE 9,20:PRINT"";:INPUT "DO YOU NEED INSTRUCTIONS";I$
  17. 260 IF LEFT$(I$,1)="N" THEN CLS: GOTO 360
  18. 270 CLS: PRINT TAB(29);"DEFUSE":PRINT
  19. 280 PRINT"YOU ARE IN A GOVERNMENT EXPERIMENTAL BUILDING WITH"
  20. 290 PRINT "1,000,000 ROOMS IN IT.  THE BUILDING IS 100 ROOMS"
  21. 300 PRINT "LONG (0-99),100 ROOMS WIDE (0-99), AND 100 ROOMS HIGH (0-99).
  22. 310 PRINT: PRINT"IN IT A BOMB IS HIDDEN.  THE BOMB SENDS OUT SIGNALS THAT"
  23. 320 PRINT "GET STRONGER AS YOU GET CLOSER.  YOU HAVE 200 SECONDS"
  24. 330 PRINT "TO DEACTIVATE IT."
  25. 340 LOCATE 12,20:PRINT "PRESS ANY KEY TO CONTINUE."
  26. 350 IF INKEY$=""THEN 350 ELSE CLS
  27. 360 A=INT(100*RND(8)$üƒ9Ç$!çîÅÅü    !3çêääαßêÇŃ8Ç$!çîÅÅü    !3çÅääü$1ƒ<ƒüŃ'0!ƒâÅÅαßêçŃ$1ƒ9üŃ'0!ƒâÅÅαßêäŃ$1ƒ8ÇŃ'0!ƒêÇÅαßâÅŃ3ÇÅü0ÇÅü1ÇÅü0ÇÅü# 8<0ƒëâîêü    $!ƒÖÖÇü0 9ƒâîÅü0  ƒâÇÅαßâîŃ#9Ç00"PblhblRt@ÉäzáèèûPblhbnRt₧%9Pü!HÉá╚αñΦ4(╨╚└üAI%9Nd É└ä≡Äf ≡µ2dÄf ≡µ&>df ≡µ&d₧fâå">|<$Éä| ≡µ"d └Γf ≡µdαÇÇ$╠Éä≡ └"~Ä  ₧gâå>|<$Éä~ff ≡µ2ff ≡µ2ff ≡µ&ffâå>|<$Éä| ≡µ"ff ≡µfEΘ╗DΘ-Θε+^_¥Cè,ü╡╨└è╚QΦ╟Φ8^ç▐V║╛R░ó¿ï≤. ┤├P3└Ä╪â>X├ïïÅ£â├¥├ëëÅ£â├¥├ï≤┐úⁿÑÑï▀├ï√╛úⁿÑÑï▐├Device UnavailableCommunication buffer overflowDisk Write ProtectedDisk not ReadyDisk Media ErrorAdvanced FeatureRename across disksPath/File access errorPath not found▓δ▓ ^^¥Θuâ─√ï╧èΦÄ▌ïä%Ç
  28. αè┴÷─Çu╞0╟3A:.3δâ╞
  29. ╣&ê0┐3ⁿ≤ñê[ú.P┤0═!X
  30. └t5<t.<    t'<
  31. t ÷─Çu <t#<t"Θ <t    Θ°▓J╣▓╣▓╣▓╣▓╣▓D╣▓F╣▓G╣▓H╣▓I╣▓K╣▓LΘ▄√╞[PRΦDZXÇ·Ds╧^^¥Ç·MrΩh÷ÇΩC╛@.¼
  32. └u·■╩u÷ï▐Φ╝∙ïGΩÿ÷tâ>uâ>u╧â√ tΦΓΦ=Θ╘GΘ╘G__¥ΦÑuΘ╓ΦúsΘ╙S╡è═Q£ΦÜP┐x╗;╣ⁿ.ï½CCΓ°ï▀KKΦåvΦçX■└PXΘº² ┐╔╢√S3└ó4óEú7    ΦîΦ│/uΦ╒%Φê░ó_ó]╞\╞a╞^x[╧√Ç>ôu╧Ç>Ot╧Φ╙╧á)è╨Φë╧^_¥ZR£WVPKΦtΦΦ ΦΣÆX√PRSΦéï±[ZRè┬ΦI:ZX╧s²^_¥XY^WVè≥è╘ï≤╞ä.á  ï┘┐δWVΘd:^_¥^WV╦√ΦLu    â>u-δ┼s├Sï6ΘÇ<uÇ>Ctï£ïîâ┴+┘v░ Φ\=Ku°[░Φm░
  33. Φh^_¥^WV2└óC╦ΦIt    ï6ΘÇ╝.    ├^_¥Z[Y^WVΦ·<╦^_¥[XSè$▀,@r8<s4CCè╬2φ^PΦö?Ç╝:u╕≡+╚ï▐è╤X┐≡¬ï╧■┬2└■└∙ƒåαP╢ ΘΘü^_¥XS┤═!■└Θ╜ ^_¥[è
  34. └^WV╦r╧^_¥X₧£tè,,
  35. └u
  36. ΦΓEET IN THE AIR!!!": GOTO 710
  37. 740 CLS:PRINT"YOU ARE NOW";-1*(F*9);"FEET UNDERGROUND!!!": GOTO 710
  38. 750 ON F GOTO 760,770,780
  39. 760 PRINT "1ST FLOOR!!!":GOTO 710
  40. 770 PRINT "2ND FLOOR!!!":GOTO 710
  41. 780 PRINT "3RD FLOOR!!!":GOTO 710
  42. 790 END
  43.  
  44.